If WYS <= 10 Then
Feature.IsActive("Fazowanie 10 mm") = False
iProperties.Material = "ZOTO-POLER"
iProperties.Value("Project", "Description") = iProperties.Material & ": Mat."

ElseIf WYS > 10 Then
Feature.IsActive("Fazowanie 10 mm") = True
iProperties.Material = "SPOINA"
iProperties.Value("Project", "Description") = iProperties.Material & ": Surowy"

End If
